home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / sdp (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  78 lines
  1. 10 REM COPYRIGHT(C) ANDREW COLIN 1983
  2. 15 REM
  3. 20 REM DEFINITION OF FISH SPRITE
  4. 30 DATA0,8,0,0,48,0,0,192,0
  5. 40 DATA3,128,3,31,192,28,115,248,112
  6. 50 DATA243,255,224,255,255,192,127,255,224
  7. 60 DATA31,248,112,7,224,28,1,192,3
  8. 70 DATA0,224,0,0,24,0,0,4,0
  9. 80 DATA0,0,0,0,0,0,0,0,0
  10. 90 DATA0,0,0,0,0,0,0,0,0
  11. 100 REM
  12. 110 REM SET UP SPRITE DATA
  13. 120 FORJ=832 TO 894
  14. 130 READ A: POKE J,A
  15. 140 NEXT J
  16. 150 REM
  17. 160 REM SET V = ADDRESS OF SPRITE CONTTROLLER
  18. 170 V=208*256
  19. 180 REM DISPLAY INSTRUCTIONS
  20. 185 POKE 53281,15
  21. 190 PRINT"[147][144]"
  22. 200 PRINT"    SPRITE DEMONSTRATION PROGRAM"
  23. 205 PRINT"    ====== ============= ======="
  24. 210 PRINT:PRINT
  25. 220 PRINT"   USE CURSOR CONTROLS TO MOVE"
  26. 225 PRINT"   THE FISH -"
  27. 230 PRINT
  28. 240 PRINT"   COLOUR KEYS"
  29. 245 PRINT"   (AND CRTL OR COMMODORE KEY)"
  30. 250 PRINT"   TO CHANGE ITS COLOUR "
  31. 260 PRINT
  32. 270 PRINT"   ^  AND  _  TO CHANGE ITS SHAPE
  33. 271 [153]:[153]"   F OR S TO MAKE IT MOVE "
  34. 272 [153]"   FAST OR SLOW"
  35. 275 [153]:[153]"   AND \ TO PUT IT IN FRONT OF"
  36. 278 [153]"   OR BEHIND THE TEXT ON THE SCREEN"
  37. 280 [143]
  38. 290 [143] SET UP THE SPRITE FOR DISPLAY
  39. 300 [151] 2040,13 : [143] SET POINTER TO SPRITE DEFINITION (13*64=832)
  40. 310 X[178]200:Y[178]230 :R[178]1:[143] SET SPRITE POSITION AND RATE
  41. 315 [151] V[170]39,1:[151] V[170]27,1:[143] SELECT COLOUR WHITE; SPRITE IN FRONT OF TEXT
  42. 320 [151] V[170]23,0:[151] V[170]29,0:[143] SELECT SMALL DIMENSIONS
  43. 330 [151] V[170]21,1:[143] ENABLE SPRITE
  44. 340 [143] UPDATE SPRITE POSITION AND READ KEYBOARD
  45. 350 [151] V,X [175] 255:[143] LOAD HORIZONTAL POSITION
  46. 360 [151] V[170]16,[181](X[173]256)
  47. 370 [151] V[170]1,Y: [143] SET VERTICAL POSITION
  48. 380 [161] A$:[139] A$[178]""[167] 380
  49. 385 [153]"                              "
  50. 390 [143] ANALYSE KEY PRESSED
  51. 400 [139] A$[178]"" [175] X[179]343 [167] X[178]X[170]R:[137]340:[143] MOVE RIGHT
  52. 410 [139] A$[178]"CMD" [175] X[177]0 [167] X[178]X[171]R:[137]340:[143] MOVE LEFT
  53. 420 [139] A$[178]"" [175] Y[179]249 [167] Y[178]Y[170]R:[137]340:[143] MOVE DOWN
  54. 440 [139] A$[178]"ON" [175] Y[177]8 [167] Y[178]Y[171]R:[137]340:[143] MOVE UP
  55. 450 [139] A$[178]"^" [167] [151] V[170]23,1[171][194](V[170]23):[137]340 : [143] CHANGE VERTICAL SIZE
  56. 460 [139] A$[178]"_" [167] [151] V[170]29,1[171][194](V[170]29):[137]340 : [143] CHANGE HORIZONTAL SIZE
  57. 470 [143] NOW TEST COLOUR KEYS
  58. 480 [139] A$[178]"STOP"[167] [151] V[170]39,0:[137]340:[143] BLACK
  59. 490 [139] A$[178]""[167] [151] V[170]39,1:[137]340:[143] WHITE
  60. 500 [139] A$[178]""[167] [151] V[170]39,2:[137]340:[143] RED
  61. 510 [139] A$[178]"OPEN"[167] [151] V[170]39,3:[137]340:[143] CYAN
  62. 520 [139] A$[178]"CLR"[167] [151] V[170]39,4:[137]340:[143] PURPLE
  63. 530 [139] A$[178]""[167] [151] V[170]39,5:[137]340:[143] GREEN
  64. 540 [139] A$[178]""[167] [151] V[170]39,6:[137]340:[143] BLUE
  65. 550 [139] A$[178]"SYS"[167] [151] V[170]39,7:[137]340:[143] YELLOW
  66. 560 [139] A$[178]"FOR"[167] [151] V[170]39,8:[137]340:[143] ORANGE
  67. 570 [139] A$[178]"VERIFY"[167] [151] V[170]39,9:[137]340:[143] BROWN
  68. 580 [139] A$[178]"DEF"[167] [151] V[170]39,10:[137]340:[143] PINK
  69. 590 [139] A$[178]"POKE"[167] [151] V[170]39,11:[137]340:[143] DARK GREY
  70. 600 [139] A$[178]"PRINT#"[167] [151] V[170]39,12:[137]340:[143] MEDIUM GREY
  71. 610 [139] A$[178]"PRINT"[167] [151] V[170]39,13:[137]340:[143] LIGHT GREEN
  72. 620 [139] A$[178]"CONT"[167] [151] V[170]39,14:[137]340:[143] LIGHT BLUE
  73. 630 [139] A$[178]"LIST"[167] [151] V[170]39,15:[153]"THE FISH IS NOW INVISIBLE":[137]340
  74. 640 [139] A$[178]"\" [167] [151] V[170]27,1[171][194](V[170]27):[137] 340:[143] CHANGE PRIORITY
  75. 650 [139] A$[178]"F" [167] R[178]5:[137]340:[143] GO FAST
  76. 660 [139] A$[178]"S" [167] R[178]1:[137] 340:[143] GO SLOW
  77. 800 [137]340
  78.